Quaestor-Event-Source names an undocumented function, with lambda list (OBJECT).
(SETF Quaestor-Event-Source) names an undocumented function, with lambda list (NEW-VALUE OBJECT).